object Form13: TForm13
  Left = 334
  Top = 102
  Width = 665
  Height = 220
  Caption = 'Set Screen Aspect Ratio'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  OnClose = FormClose
  OnDeactivate = FormDeactivate
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 47
    Top = 0
    Width = 514
    Height = 16
    Caption = 
      'To be able to display images accurately, Qimage needs to know yo' +
      'ur screen size'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 20
    Top = 30
    Width = 601
    Height = 16
    Caption = 
      'Measure the width and height of the viewable area displayed on y' +
      'our monitor and enter the values below.'
  end
  object Label3: TLabel
    Left = 30
    Top = 49
    Width = 582
    Height = 16
    Caption = 
      'The viewable area includes the entire displayed portion of the s' +
      'creen, not just this (or other) windows.'
  end
  object Label4: TLabel
    Left = 20
    Top = 69
    Width = 628
    Height = 16
    Caption = 
      'Units are not important as long as you use the same units for bo' +
      'th the horizontal and vertical measurements.'
  end
  object Label5: TLabel
    Left = 69
    Top = 108
    Width = 145
    Height = 16
    Caption = 'Horizontal measurement:'
  end
  object Label6: TLabel
    Left = 374
    Top = 108
    Width = 131
    Height = 16
    Caption = 'Vertical measurement:'
  end
  object Edit1: TEdit
    Left = 225
    Top = 98
    Width = 70
    Height = 24
    Hint = 
      'Measure (in any units) the width of the entire display area of t' +
      'he screen and enter the value here.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Text = '0.00'
  end
  object Edit2: TEdit
    Left = 512
    Top = 98
    Width = 70
    Height = 24
    Hint = 
      'Measure (in any units) the height of the entire display area of ' +
      'the screen and enter the value here.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Text = '0.00'
  end
  object BitBtn1: TBitBtn
    Left = 128
    Top = 148
    Width = 92
    Height = 30
    Hint = 
      'The above width will be divided by the height to obtain the scre' +
      'en aspect ratio.  This button will save this value for future us' +
      'e.'
    Caption = 'Save'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 394
    Top = 148
    Width = 92
    Height = 30
    Hint = 'Ignore the above entries.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
end